home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1985 Fall / rerun-1985-fall.d64 / gold grabber (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1985-01-01  |  11.5 KB  |  341 lines
  1. 10 printchr$(147)chr$(5):poke53280,12:poke53281,12
  2. 20 print:print:print
  3. 30 printtab(14)"flynn's gold"
  4. 40 ti$="000000"
  5. 100 read l,s,e:l=l+30
  6. 110 fori=0toe-s
  7. 120 readb:pokes+i,b:m=m+b
  8. 130 ifint((i+1)/8)*8<>(i+1)then160
  9. 140 readx:ifx<>mthen190
  10. 150 m=0:l=l+10
  11. 160 print"":rem 10 cursor down
  12. 165 printtab(10)"ready in"left$(str$(177-int(ti/60)),4)" seconds "
  13. 170 next
  14. 175 ifint(i/8)*8<>ithenreadx:ifx<>mthen190
  15. 180 sys49152:rem start game
  16. 190 printchr$(147):print:print:print
  17. 200 print"error in line #";l
  18. 300 end
  19. 1000 data 1000,49152,51714
  20. 1030 data 32,201,196,32,151,197,32,116,957
  21. 1040 data 196,32,68,198,169,63,141,21,888
  22. 1050 data 208,169,0,141,250,201,165,197,1331
  23. 1060 data 201,63,208,8,169,0,141,244,1034
  24. 1070 data 201,76,139,192,32,57,194,32,923
  25. 1080 data 89,194,32,136,194,32,226,192,1095
  26. 1090 data 32,203,193,32,237,193,32,13,935
  27. 1100 data 194,173,243,201,201,37,240,75,1364
  28. 1110 data 32,101,196,32,2,195,173,16,747
  29. 1120 data 208,41,2,208,201,173,1,208,1042
  30. 1130 data 174,0,208,172,0,208,32,78,872
  31. 1140 data 195,176,28,173,9,208,174,8,971
  32. 1150 data 208,172,8,208,32,78,195,176,1077
  33. 1160 data 14,173,11,208,174,10,208,172,970
  34. 1170 data 10,208,32,78,195,144,159,238,1064
  35. 1180 data 247,201,32,116,196,206,244,201,1443
  36. 1190 data 32,27,198,173,244,201,240,3,1118
  37. 1200 data 76,12,192,32,116,196,238,251,1113
  38. 1210 data 201,32,162,192,144,3,32,68,834
  39. 1220 data 198,32,233,197,32,151,197,76,1116
  40. 1230 data 12,192,169,0,141,239,201,174,1128
  41. 1240 data 244,201,240,52,172,253,201,24,1387
  42. 1250 data 120,248,173,239,201,105,1,141,1228
  43. 1260 data 239,201,216,88,136,208,240,202,1530
  44. 1270 data 208,234,32,40,198,24,120,248,1104
  45. 1280 data 173,241,201,109,239,201,141,241,1546
  46. 1290 data 201,173,242,201,105,0,141,242,1305
  47. 1300 data 201,216,88,32,176,197,24,96,1030
  48. 1310 data 56,96,173,0,220,74,74,74,767
  49. 1320 data 144,77,74,144,7,74,176,3,699
  50. 1330 data 76,122,193,96,206,234,201,208,1336
  51. 1340 data 30,169,8,141,234,201,169,3,955
  52. 1350 data 141,235,201,169,1,141,233,201,1322
  53. 1360 data 174,236,201,189,229,193,141,236,1599
  54. 1370 data 201,189,195,193,141,249,7,174,1349
  55. 1380 data 2,208,173,16,208,41,2,240,890
  56. 1390 data 7,232,224,64,240,16,208,11,1002
  57. 1400 data 232,208,8,173,16,208,9,2,856
  58. 1410 data 141,16,208,142,2,208,96,206,1019
  59. 1420 data 233,201,208,30,169,8,141,233,1223
  60. 1430 data 201,169,3,141,236,201,169,1,1121
  61. 1440 data 141,234,201,174,235,201,189,229,1604
  62. 1450 data 193,141,235,201,189,199,193,141,1492
  63. 1460 data 249,7,174,2,208,173,16,208,1037
  64. 1470 data 41,2,240,15,202,16,8,173,697
  65. 1480 data 16,208,41,253,141,16,208,142,1025
  66. 1490 data 2,208,96,202,224,25,240,250,1247
  67. 1500 data 208,245,173,16,208,41,2,240,1133
  68. 1510 data 65,173,229,201,240,60,173,230,1371
  69. 1520 data 201,73,255,162,0,232,56,233,1212
  70. 1530 data 20,176,250,32,197,197,202,208,1282
  71. 1540 data 250,142,229,201,238,247,201,238,1746
  72. 1550 data 247,201,32,176,197,24,120,248,1245
  73. 1560 data 173,243,201,105,1,141,243,201,1308
  74. 1570 data 216,88,162,3,32,86,196,173,956
  75. 1580 data 243,201,141,1,202,160,0,76,1024
  76. 1590 data 141,198,96,205,206,205,204,201,1456
  77. 1600 data 202,201,200,206,237,201,208,20,1475
  78. 1610 data 169,20,141,237,201,174,228,201,1371
  79. 1620 data 189,229,193,141,228,201,189,233,1603
  80. 1630 data 193,141,252,7,96,1,2,3,695
  81. 1640 data 0,210,211,212,211,173,223,201,1441
  82. 1650 data 240,15,238,5,208,240,1,96,1043
  83. 1660 data 206,223,201,169,0,141,5,208,1153
  84. 1670 data 96,173,27,212,16,251,238,223,1236
  85. 1680 data 201,141,4,208,96,173,224,201,1248
  86. 1690 data 240,15,238,7,208,240,1,96,1045
  87. 1700 data 169,0,141,224,201,141,7,208,1091
  88. 1710 data 96,206,227,201,208,18,169,100,1225
  89. 1720 data 141,227,201,173,27,212,201,55,1237
  90. 1730 data 144,249,141,6,208,238,224,201,1411
  91. 1740 data 96,173,225,201,240,10,238,1,1184
  92. 1750 data 208,240,1,96,206,225,201,96,1273
  93. 1760 data 173,16,208,41,2,208,9,238,895
  94. 1770 data 225,201,173,2,208,141,0,208,1158
  95. 1780 data 96,173,226,201,240,10,238,11,1195
  96. 1790 data 208,240,1,96,206,226,201,96,1274
  97. 1800 data 206,238,201,208,26,169,50,141,1239
  98. 1810 data 238,201,173,16,208,41,2,208,1087
  99. 1820 data 14,173,2,208,48,9,238,226,918
  100. 1830 data 201,173,2,208,141,10,208,96,1039
  101. 1840 data 173,232,201,16,6,32,224,194,1078
  102. 1850 data 76,150,194,32,241,194,172,231,1290
  103. 1860 data 201,16,8,32,196,194,200,208,1055
  104. 1870 data 250,240,6,32,170,194,136,208,1236
  105. 1880 data 250,96,174,8,208,232,240,4,1212
  106. 1890 data 142,8,208,96,173,27,212,16,882
  107. 1900 data 3,169,255,44,169,254,141,231,1266
  108. 1910 data 201,160,1,96,174,8,208,202,1050
  109. 1920 data 224,50,240,4,142,8,208,96,972
  110. 1930 data 173,27,212,16,3,169,1,44,645
  111. 1940 data 169,2,141,231,201,160,255,96,1255
  112. 1950 data 174,9,208,202,224,75,176,5,1073
  113. 1960 data 169,1,141,232,201,142,9,208,1103
  114. 1970 data 96,174,9,208,232,224,235,144,1322
  115. 1980 data 5,169,255,141,232,201,142,9,1154
  116. 1990 data 208,96,173,16,208,41,2,208,952
  117. 2000 data 68,173,5,208,174,4,208,172,1012
  118. 2010 data 4,208,32,78,195,144,20,169,850
  119. 2020 data 1,141,229,201,173,4,208,141,1098
  120. 2030 data 230,201,32,173,197,32,248,193,1306
  121. 2040 data 238,247,201,173,7,208,174,6,1254
  122. 2050 data 208,172,6,208,32,78,195,144,1043
  123. 2060 data 20,169,1,141,229,201,173,6,940
  124. 2070 data 208,141,230,201,32,173,197,32,1214
  125. 2080 data 24,194,238,247,201,96,205,3,1208
  126. 2090 data 208,208,22,169,8,141,1,202,959
  127. 2100 data 236,2,208,240,14,204,2,208,1114
  128. 2110 data 240,9,202,200,206,1,202,16,1076
  129. 2120 data 239,24,96,56,96,173,246,201,1131
  130. 2130 data 208,21,173,247,201,240,67,206,1363
  131. 2140 data 247,201,160,2,140,248,201,140,1339
  132. 2150 data 246,201,169,0,141,249,201,206,1413
  133. 2160 data 249,201,48,10,208,44,169,32,961
  134. 2170 data 141,4,212,76,186,195,172,248,1234
  135. 2180 data 201,185,11,196,141,1,212,185,1132
  136. 2190 data 14,196,141,0,212,169,5,141,878
  137. 2200 data 249,201,169,33,141,4,212,136,1145
  138. 2210 data 16,5,169,0,141,246,201,140,918
  139. 2220 data 248,201,173,250,201,208,21,173,1475
  140. 2230 data 251,201,240,68,206,251,201,160,1578
  141. 2240 data 17,140,252,201,140,250,201,169,1370
  142. 2250 data 0,141,245,201,206,245,201,48,1287
  143. 2260 data 10,208,45,169,16,141,11,212,812
  144. 2270 data 76,8,196,172,252,201,185,17,1107
  145. 2280 data 196,141,8,212,185,35,196,141,1114
  146. 2290 data 7,212,185,53,196,141,245,201,1240
  147. 2300 data 169,33,141,11,212,136,16,5,723
  148. 2310 data 169,0,141,250,201,140,252,201,1354
  149. 2320 data 76,49,234,63,59,56,75,190,802
  150. 2330 data 99,11,12,13,16,16,18,18,203
  151. 2340 data 21,21,19,0,21,21,19,0,122
  152. 2350 data 19,21,19,48,143,78,195,195,718
  153. 2360 data 209,209,31,31,239,0,31,31,781
  154. 2370 data 239,0,239,31,239,11,3,7,769
  155. 2380 data 7,7,7,7,7,7,7,7,56
  156. 2390 data 15,7,7,7,15,7,7,169,234
  157. 2400 data 6,44,169,10,170,160,13,24,596
  158. 2410 data 76,240,255,169,9,44,169,23,985
  159. 2420 data 44,169,31,168,24,32,240,255,963
  160. 2430 data 169,30,76,210,255,173,253,201,1367
  161. 2440 data 73,15,170,160,75,136,208,253,1090
  162. 2450 data 202,208,248,96,160,6,169,0,1089
  163. 2460 data 153,223,201,136,16,248,160,5,1142
  164. 2470 data 169,0,153,0,208,153,6,208,897
  165. 2480 data 185,182,196,153,248,7,185,188,1344
  166. 2490 data 196,153,39,208,136,16,233,200,1181
  167. 2500 data 140,21,208,200,200,140,16,208,1133
  168. 2510 data 162,6,189,194,196,157,231,201,1336
  169. 2520 data 202,16,247,169,25,141,2,208,1010
  170. 2530 data 169,229,141,3,208,96,207,200,1253
  171. 2540 data 203,203,210,207,12,6,7,7,855
  172. 2550 data 8,2,2,1,1,1,3,3,21
  173. 2560 data 20,169,0,141,33,208,169,6,746
  174. 2570 data 141,32,208,160,198,169,167,32,1107
  175. 2580 data 30,171,160,11,169,0,153,245,939
  176. 2590 data 201,136,16,250,238,253,201,120,1415
  177. 2600 data 169,102,141,24,3,169,254,141,1003
  178. 2610 data 25,3,169,109,141,20,3,169,639
  179. 2620 data 195,141,21,3,88,162,0,189,799
  180. 2630 data 31,199,157,0,50,189,31,200,857
  181. 2640 data 157,0,51,202,208,241,162,191,1212
  182. 2650 data 189,30,201,157,127,52,202,208,1166
  183. 2660 data 247,142,6,212,142,13,212,202,1176
  184. 2670 data 142,15,212,169,9,141,5,212,905
  185. 2680 data 141,12,212,169,128,141,18,212,1033
  186. 2690 data 169,143,141,24,212,162,8,189,1048
  187. 2700 data 106,197,157,223,7,189,115,197,1191
  188. 2710 data 157,183,7,189,124,197,157,143,1157
  189. 2720 data 7,189,133,197,157,103,7,189,982
  190. 2730 data 142,197,157,63,7,169,5,157,897
  191. 2740 data 223,219,157,183,219,157,143,219,1520
  192. 2750 data 157,103,219,157,63,219,202,16,1136
  193. 2760 data 206,96,233,160,160,160,160,160,1335
  194. 2770 data 160,160,160,32,32,233,160,160,1097
  195. 2780 data 160,160,160,160,32,32,32,233,969
  196. 2790 data 205,160,205,160,160,32,32,32,986
  197. 2800 data 32,233,223,233,160,160,32,32,1105
  198. 2810 data 32,32,32,32,32,233,223,162,778
  199. 2820 data 3,142,244,201,169,0,157,240,1156
  200. 2830 data 201,202,16,250,32,176,197,32,1106
  201. 2840 data 178,193,76,27,198,32,197,197,1098
  202. 2850 data 162,1,32,83,196,160,2,185,821
  203. 2860 data 240,201,153,1,202,136,16,247,1196
  204. 2870 data 160,2,76,141,198,172,253,201,1203
  205. 2880 data 24,120,248,173,240,201,105,10,1121
  206. 2890 data 141,240,201,173,241,201,105,0,1302
  207. 2900 data 141,241,201,173,242,201,105,0,1304
  208. 2910 data 141,242,201,216,88,136,16,224,1264
  209. 2920 data 96,160,2,185,240,201,217,254,1355
  210. 2930 data 201,240,3,176,5,96,136,16,873
  211. 2940 data 242,96,160,2,185,240,201,153,1279
  212. 2950 data 254,201,136,16,247,162,1,32,1049
  213. 2960 data 89,196,160,2,185,254,201,153,1240
  214. 2970 data 1,202,136,16,247,160,2,76,840
  215. 2980 data 141,198,96,162,3,32,89,196,917
  216. 2990 data 173,244,201,9,48,76,210,255,1216
  217. 3000 data 32,71,196,160,199,169,15,32,874
  218. 3010 data 30,171,160,0,140,1,202,173,877
  219. 3020 data 239,201,141,2,202,200,32,141,1158
  220. 3030 data 198,76,78,198,32,71,196,160,1009
  221. 3040 data 198,169,245,32,30,171,32,74,951
  222. 3050 data 196,160,199,169,3,32,30,171,960
  223. 3060 data 32,107,198,165,197,201,4,208,1112
  224. 3070 data 247,162,6,32,255,233,162,10,1107
  225. 3080 data 76,255,233,32,228,255,201,134,1414
  226. 3090 data 240,1,96,174,253,201,232,224,1421
  227. 3100 data 10,208,2,162,1,142,253,201,979
  228. 3110 data 162,1,32,86,196,173,253,201,1104
  229. 3120 data 9,48,76,210,255,185,1,202,986
  230. 3130 data 74,74,74,74,9,48,32,210,595
  231. 3140 data 255,185,1,202,41,15,9,48,756
  232. 3150 data 32,210,255,136,16,231,96,147,1123
  233. 3160 data 30,17,32,32,32,83,67,79,372
  234. 3170 data 82,69,32,48,48,48,48,48,423
  235. 3180 data 48,32,32,76,69,86,69,76,488
  236. 3190 data 32,49,32,32,72,73,71,72,433
  237. 3200 data 32,48,48,48,48,48,48,19,339
  238. 3210 data 17,17,17,32,32,32,32,32,211
  239. 3220 data 32,32,32,30,71,79,76,68,420
  240. 3230 data 32,82,69,84,82,73,69,86,577
  241. 3240 data 69,68,32,48,48,32,32,77,406
  242. 3250 data 69,78,32,51,0,158,70,76,534
  243. 3260 data 89,78,78,39,83,32,71,79,549
  244. 3270 data 76,68,0,158,32,32,80,82,528
  245. 3280 data 69,83,83,32,70,49,0,158,544
  246. 3290 data 66,30,79,28,78,159,85,129,654
  247. 3300 data 83,156,32,58,5,32,0,0,366
  248. 3310 data 0,0,0,0,0,0,0,0,0
  249. 3320 data 0,0,0,0,0,0,0,0,0
  250. 3330 data 0,0,0,0,0,0,0,0,0
  251. 3340 data 64,0,0,224,0,0,224,0,512
  252. 3350 data 0,126,0,3,238,0,2,96,465
  253. 3360 data 0,0,96,0,0,96,0,1,193
  254. 3370 data 254,0,3,188,0,3,0,0,448
  255. 3380 data 3,0,0,2,0,0,1,0,6
  256. 3390 data 0,0,0,0,0,0,0,0,0
  257. 3400 data 0,0,0,0,0,0,0,0,0
  258. 3410 data 0,0,0,0,0,0,0,0,0
  259. 3420 data 0,0,0,64,0,0,224,0,288
  260. 3430 data 0,224,0,0,112,0,0,248,584
  261. 3440 data 0,1,252,0,3,252,0,0,508
  262. 3450 data 242,0,0,240,0,0,56,0,538
  263. 3460 data 0,56,0,0,48,0,0,0,104
  264. 3470 data 0,0,0,0,0,0,0,0,0
  265. 3480 data 0,0,0,0,0,0,0,0,0
  266. 3490 data 0,0,0,0,0,0,0,0,0
  267. 3500 data 64,0,0,224,0,0,224,0,512
  268. 3510 data 2,120,0,1,252,0,0,96,471
  269. 3520 data 0,0,96,0,0,240,0,1,337
  270. 3530 data 152,0,1,140,0,1,140,0,434
  271. 3540 data 0,12,0,0,8,0,0,0,20
  272. 3550 data 0,0,0,0,0,0,0,0,0
  273. 3560 data 0,0,0,0,0,0,0,0,0
  274. 3570 data 0,0,48,0,0,120,0,0,168
  275. 3580 data 252,0,1,254,0,1,254,0,762
  276. 3590 data 1,254,0,0,252,0,0,0,507
  277. 3600 data 0,0,0,0,0,0,0,0,0
  278. 3610 data 0,0,0,0,0,0,0,0,0
  279. 3620 data 0,0,0,0,0,0,0,0,0
  280. 3630 data 0,0,0,0,0,0,0,0,0
  281. 3640 data 0,0,0,0,0,0,0,0,0
  282. 3650 data 0,0,0,0,0,0,0,0,0
  283. 3660 data 2,0,0,7,0,0,7,0,16
  284. 3670 data 0,126,0,0,119,192,0,6,443
  285. 3680 data 64,0,6,0,0,6,0,0,76
  286. 3690 data 127,128,0,61,192,0,0,192,700
  287. 3700 data 0,0,192,0,0,64,1,0,257
  288. 3710 data 0,0,0,0,0,0,0,0,0
  289. 3720 data 0,0,0,0,0,0,0,0,0
  290. 3730 data 0,0,0,0,0,0,0,0,0
  291. 3740 data 0,0,0,2,0,0,7,0,9
  292. 3750 data 0,7,0,0,14,0,0,31,52
  293. 3760 data 0,0,63,128,0,63,192,0,446
  294. 3770 data 79,0,0,15,0,0,28,0,122
  295. 3780 data 0,28,0,0,12,0,0,0,40
  296. 3790 data 0,0,0,0,0,0,0,0,0
  297. 3800 data 0,0,0,0,0,0,0,0,0
  298. 3810 data 0,0,0,0,0,0,0,0,0
  299. 3820 data 2,0,0,7,0,0,7,0,16
  300. 3830 data 0,30,64,0,63,128,0,6,291
  301. 3840 data 0,0,6,0,0,15,0,0,21
  302. 3850 data 25,128,0,49,128,0,49,128,507
  303. 3860 data 0,48,0,0,16,0,0,0,64
  304. 3870 data 16,0,0,40,0,0,68,0,124
  305. 3880 data 0,40,0,0,16,0,3,255,314
  306. 3890 data 128,3,97,128,7,109,192,7,671
  307. 3900 data 109,192,15,109,224,15,109,224,997
  308. 3910 data 31,97,240,31,255,240,32,132,1058
  309. 3920 data 216,59,181,88,123,181,92,123,1063
  310. 3930 data 181,92,123,133,156,127,255,252,1319
  311. 3940 data 0,0,0,0,0,0,0,0,0
  312. 3950 data 0,0,0,0,0,0,0,0,0
  313. 3960 data 0,0,0,0,0,0,0,0,0
  314. 3970 data 0,0,0,0,0,0,0,12,12
  315. 3980 data 0,96,1,1,0,0,198,0,296
  316. 3990 data 0,56,0,0,16,0,0,0,72
  317. 4000 data 0,0,0,0,0,0,0,0,0
  318. 4010 data 0,0,0,0,0,0,0,0,0
  319. 4020 data 0,0,0,0,0,0,0,0,0
  320. 4030 data 0,0,0,0,0,0,0,0,0
  321. 4040 data 0,0,0,0,0,0,0,0,0
  322. 4050 data 0,0,0,0,0,0,0,0,0
  323. 4060 data 0,0,0,0,0,3,199,128,330
  324. 4070 data 12,108,96,16,16,16,0,0,264
  325. 4080 data 0,0,0,0,0,0,0,0,0
  326. 4090 data 0,0,0,0,0,0,0,0,0
  327. 4100 data 0,0,0,0,0,0,0,0,0
  328. 4110 data 0,0,0,0,0,0,0,0,0
  329. 4120 data 0,0,0,0,0,0,0,0,0
  330. 4130 data 0,0,0,0,0,0,0,0,0
  331. 4140 data 0,0,0,0,0,0,0,0,0
  332. 4150 data 0,40,0,0,124,0,1,147,312
  333. 4160 data 0,2,0,128,8,0,32,0,170
  334. 4170 data 0,0,0,0,0,0,0,0,0
  335. 4180 data 0,0,0,0,0,0,0,253,253
  336. 4190 data 115,255,0,255,0,255,0,255,1135
  337. 4200 data 0,255,0,255,0,255,0,255,1020
  338. 4210 data 255,255,0,255,0,255,119,10,1149
  339. 4220 data 0,255,0,255,0,255,0,255,1020
  340. 4230 data 206,0,171,377
  341.